home *** CD-ROM | disk | FTP | other *** search
/ CD/PC Actual 76 / DVD Actual 1 Marzo 2003.iso / Trial / TurboCAD 7.1 Pro / Data.Cab / F25709_DatRef.bas < prev    next >
Encoding:
BASIC Source File  |  2000-11-10  |  3.1 KB  |  165 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. '/******************************************************************/
  4. '/*                                                                */
  5. '/*                      TurboCAD for Windows                      */
  6. '/*                   Copyright (c) 1993 - 1996                    */
  7. '/*             International Microcomputer Software, Inc.         */
  8. '/*                            (IMSI)                              */
  9. '/*                      All rights reserved.                      */
  10. '/*                                                                */
  11. '/******************************************************************/
  12. Global Im11$
  13. Global Im12$
  14. Global Im13$
  15. Global Im14$
  16. Global Im15$
  17. Global Im16$
  18. Global Im17$
  19. Global Im18$
  20.  
  21. Global ImF11 As String
  22. Global ImF12 As String
  23. Global ImF13 As String
  24. Global ImF14 As String
  25. Global ImF15 As String
  26. Global ImF16 As String
  27. Global ImF17 As String
  28. Global ImF18 As String
  29.  
  30.  
  31. Global Str11 As String
  32. Global Str12 As String
  33. Global Str13 As String
  34. Global Str14 As String
  35. Global Str15 As String
  36.  
  37.  
  38.  
  39. Global Im21$
  40. Global Im22$
  41. Global Im23$
  42. Global Im24$
  43. Global Im25$
  44. Global Im26$
  45. Global Im27$
  46. Global Im28$
  47.  
  48. Global ImF21 As String
  49. Global ImF22 As String
  50. Global ImF23 As String
  51. Global ImF24 As String
  52. Global ImF25 As String
  53. Global ImF26 As String
  54. Global ImF27 As String
  55. Global ImF28 As String
  56.  
  57. Global Str21 As String
  58. Global Str22 As String
  59. Global Str23 As String
  60. Global Str24 As String
  61. Global Str25 As String
  62.  
  63. Global Im31$
  64. Global ImF31 As String
  65. Global Str31 As String
  66.  
  67. Global Str41 As String
  68.  
  69. Global SymTxtHeight As Double
  70.  
  71. Global TextF As String
  72.  
  73. Global Im1%
  74. Global Im2%
  75. Global Im3%
  76. Global Str1 As String
  77. Global Str2 As String
  78. Global Str3 As String
  79. Global Str4 As String
  80. Global Len0 As Double
  81. Global R0#
  82. Global strPath$
  83. Global Const pi = 3.14159
  84.  
  85. Global ClIm1%
  86. Global ClIm2%
  87. Global ClIm3%
  88.  
  89. Global App As Application
  90.  
  91.  
  92.  
  93. ' DLL Entry point
  94. Sub Main()
  95.     Im11 = Chr(98)
  96.     Im12 = Chr(110)
  97.     Im13 = Chr(109)
  98.     Im14 = ""
  99.     Im15 = ""
  100.     Im16 = ""
  101.     Im17 = ""
  102.     Im18 = ""
  103.     
  104.     ImF11 = "gdt.shx"
  105.     ImF12 = "gdt.shx"
  106.     ImF13 = "gdt.shx"
  107.     ImF14 = "gdt.shx"
  108.     ImF15 = "gdt.shx"
  109.     ImF16 = "gdt.shx"
  110.     ImF17 = "gdt.shx"
  111.     ImF18 = "gdt.shx"
  112.     
  113.     Str11 = "0.000"
  114.     Str12 = ""
  115.     Str13 = "A"
  116.     Str14 = "B"
  117.     Str15 = "C"
  118.  
  119.     Im21 = ""
  120.     Im22 = ""
  121.     Im23 = ""
  122.     Im24 = ""
  123.     Im25 = ""
  124.     Im26 = ""
  125.     Im27 = ""
  126.     Im28 = ""
  127.  
  128.     ImF21 = "gdt.shx"
  129.     ImF22 = "gdt.shx"
  130.     ImF23 = "gdt.shx"
  131.     ImF24 = "gdt.shx"
  132.     ImF25 = "gdt.shx"
  133.     ImF26 = "gdt.shx"
  134.     ImF27 = "gdt.shx"
  135.     ImF28 = "gdt.shx"
  136.  
  137.     Str21 = ""
  138.     Str22 = ""
  139.     Str23 = ""
  140.     Str24 = ""
  141.     Str25 = ""
  142.  
  143.     Im31 = ""
  144.     ImF31 = "gdt.shx"
  145.     Str31 = ""
  146.  
  147.     Str41 = ""
  148.  
  149.     ClIm1 = 0
  150.     ClIm2 = 0
  151.     ClIm3 = 0
  152.  
  153.     Im1 = 1
  154.     Im2 = 2
  155.     Im3 = 2
  156.     Str1 = "0.000"
  157.     Str2 = "A"
  158.     Str3 = "B"
  159.     Str4 = "C"
  160.     R0 = 0.25
  161.     SymTxtHeight = 0.3
  162.     TextF = "Times New Roman"
  163. End Sub
  164.  
  165.